CP/M macro ASSEM 2.0 



#001 



*** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 



* 
* 


CBIOS FOR 


CP/M 


VER 2.2 FOR DISK 


JOCKEY 


2D 


CONTROLLER 


(ALL 


* 
* 


* 


REVS ) . HANDLES 


DISKETTES WITH SECTOR 


SIZES OF 128 BYTES 


* 


* 
* 


SINGLE DENSITY, 


256, 512, 1024 


BYTES 


DOUBLE DENSITY. 




* 
* 


* 


WRITTEN BY BOBBY DALE GIFFORD. 












* 


* 
* 


9/1/79 


















* 
* 


* 


CUSTOMIZED BY JAY O'BRIEN. 












* 


* 
* 


4/12/81 


















* 
* 


* 


MODIFIED ] 


?OR 


ADDITIONAL PRINTER 


ON PORT 


WITH PRINTER BUSY 


* 


* 


ON PORT 5 


BIT 1 












* 


* 
* 


11/9/81 


















* 
* 


* 


DISK MAP ( 


3F SECTORS USED BY COLD BOOT, 


WARM BOOT, FIRMWARE, 


* 


* 
* 


AND CP/M: 


















* 
* 


* 


TRK SEC 


1 


— 


FIRST SECTOR OF 


COLD ] 


300T. 




E700H 


* 


* 





2 


= 


COLD BOOT 256. 










80H 


* 


* 





3 


= 


COLD BOOT 512. 










80H 


* 


* 





4 


= 


COLD BOOT 1024. 










80H 


* 


* 





5 


= 


WARM BOOT 256. 










80H 


* 


* 





6 


= 


WARM BOOT 512. 










80H 


* 


* 





7 


= 


WARM BOOT 1024. 










80H 


* 


* 





8 


= 


COLD/WARM BOOT. 










3200H 


* 


* 





9 


= 


FIRMWARE. 










E400H 


* 


* 





10 


= 


FIRMWARE+80H. 










E430H 


* 


* 





11 


= 


FIRMWARE+100H 










E500H 


* 


* 





12 


= 


FIRMWARE+180H. 










E580H 


* 


* 





13 


= 


FIRMWARE+200H. 










E600H 


* 


* 





14 


= 


FIRMWARE+280H. 










E680H 


* 


* 





15 


= 


FIRMWARE+300H. 










E700H 


* 


* 





16 


= 


FIRMWARE+380H. 










E780H 


* 


* 





17 


= 


CCP. 










2D00H 


* 


* 





10 


=s 


CCP+80H . 










2D80H 


* 


* 





12 


s= 


CCP+100H. 










2E00H 


* 


* 





14 


= 


CCP+180H. 










2E80H 


* 


* 





16 


= 


CCP+200H. 










2F00H 


* 


* 





18 


= 


CCP+280H. 










2F80H 


* 


* 





20 


= 


CCP+300H. 










3000H 


* 


* 





22 


= 


CCP+380H. 










3080H 


* 


* 





24 


= 


CCP+400H. 










3100H 


* 


* 





26 


= 


CCP+480H . 










3180H 


* 


* 


1 




= 


REST OF CP/M. 








3200F 


[-4FFFH 


* 


* 




















* 




***************************************************************** 



TITLE 



'*** Cbios For CP/M Ver. 2.2 ***' 



***************************************************************** 

* * 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO THE CP/M * 

* 2.0 CBIOS. * 

* * 







-ttidl W ft™) 



CP/M MACRO ASSEM 2.0 #002 *** Cbios For CP/M Ver. 2.2 *** 

***************************************************************** 



001E = 
0016 = 



REVNUM EQU 30 
CPMREV EQU 22 



; CBIOS REVISION NUMBER 
;CP/M REVISION NUMBER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0,1,3, 3.1, 4. * 

* * 
***************************************************************** 



E000 
E400 
E403 
E406 
E409 
E40C 
E40F 
E412 
E415 
E418 
E41B 
E421 
E427 
E42A 
E42D 
E430 



ORIGIN EQU 

DJRAM EQU 

DJCIN EQU 

DJCOUT EQU 

DJHOME EQU 

DJTRK EQU 

DJSEC EQU 

DJDMA EQU 

DJREAD EQU 

DJWRITE EQU 

DJSEL EQU 

DJTSTAT EQU 

DJSTAT EQU 

DJERR EQU 

DJDEN EQU 

DJSIDE EQU 



0E000H 

ORIGIN+400H 

DJRAM+3H 

DJRAM+6H 

DJRAM+9H 

DJRAM+0CH 

DJRAM+0FH 

DJRAM+012H 

DJRAM+15H 

DJRAM+18H 

DJRAM+1BH 

DJRAM+21H 

DJRAM+27H 

DJRAM+2AH 

DJRAM+2DH 

DJRAM+30H 



DISK JOCKEY 2D RAM ADDRESS 

DISK JOCKEY 2D CHARACTER INPUT ROUTINE 

DISK JOCKEY 2D CHARACTER OUTPUT ROUTINE 

DISK JOCKEY 2D TRACK ZERO SEEK 

DISK JOCKEY 2D TRACK SEEK ROUTINE 

DISK JOCKEY 2D SET SECTOR ROUTINE 

DISK JOCKEY 2D SET DMA ADDRESS 

DISK JOCKEY 2D READ ROUTINE 

DISK JOCKEY 2D WRITE ROUTINE 

DISK JOCKEY 2D SELECT DRIVE ROUTINE 

DISK JOCKEY 2D TERMINAL STATUS ROUTINE 

DISK JOCKEY 2D STATUS ROUTINE 

DISK JOCKEY 2D ERROR, FLASH LED 

DISK JOCKEY 2D SET DENSITY ROUTINE 

DISK JOCKEY 2D SET SIDE ROUTINE 



***************************************************************** 

* * 

* EQUATES FOR, MY SYSTEM. J.J. O'BRIEN * 

* * 
********************************* ******************************** 



E800 = 



MSDV EQU 0E800H ; VIDEO DRIVER FOR MSDV 

********^*********7*************jtJii^*K*^^***^* 9 *\*"**T********** 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. * 

* * 
*********** ****************************************************** 



0038 
9000 
BD00 
C500 
D300 
0004 
0080 
0100 
00C0 



MSIZE 


EQU 


BIAS 


EQU 


CCP 


EQU 


BDOS 


EQU 


BIOS 


EQU 


CDISK 


EQU 


BUFF 


EQU 


TPA 


EQU 



INTIOBY EQU 



56 ; MEMORY SIZE OF TARGET CP/M 

(MSIZE-20)*1024 ,-MEMORY OFFSET FROM 20K SYSTEM 

2D00H+BIAS ; CONSOLE COMMAND PROCESSOR 

CCP+800H ;BDOS ADDRESS 

CCP+1600H ;CBIOS ADDRESS 

4 ; ADDRESS OF LAST LOGGED DISK 

80H • DEFAULT BUFFER ADDRESS 

10SJH ; TRANSIENT MEMORY 

192 ; INITIAL IOBYTE 



CP/M MACRO ASSEM 2.0 #003 *** Cbios For CP/M Ver. 2.2 *** 



0003 = 
0000 = 
0005 = 



000A = 
000D ■ 
000A = 

0003 = 
0006 = 
0019 = 

0004 = 
0008 = 



IOBYTE EQU 3 
WBOT EQU 
ENTRY EQU 5 



; IOBYTE LOCATION 

;WARM BOOT JUMP ADDRESS 

;BDOS ENTRY JUMP ADDRESS 



***************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. * 

* * 
***************************************************************** 



RETRIES EQU 10 

ACR EQU 0DH 

ALF EQU 0AH 

AETX EQU 3 

AACK EQU 6 

CLEAR EQU 19H 

MAXDISK EQU 4 

DBLSID EQU 8 



llty 



;MAX RETRIES ON DISK I/O BEFORE ERROR 

;A CARRIAGE RETURN 

;A LINE FEED 

;A ETX CHAR 

;A ACK CHAR 

; CLEAR SCREEN FOR MSDV //t>X 

;MAXIMUM # OF DISK DRIVES 

;SIDE BIT FROM CONTROLLER 



***************************************************************** 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. * 

* * 
***************************************************************** 



D300 



ORG 



BIOS 



;CBIOS STARTING ADDRESS 



D300 


C3A0D3 


JMP 


CBOOT 


D303 


C3FCD3 


WBOOTE JMP 


WBOOT 


D306 


C340D6 


JMP 


CONST 


D309 


C34CD6 


JMP 


CONIN 


D30C 


C361D6 


COUT JMP 


CONOUT 


D30F 


C381D6 


JMP 


LIST 


D312 


C376D6 


JMP 


PUNCH 


D315 


C36CD6 


JMP 


READER 


D318 


C390D4 


JMP 


HOME 


D31B 


C3C6D4 


JMP 


SETDRV 


D31E 


C392D4 


JMP 


SETTRK 


D321 


C385D4 


JMP 


SETSEC 


D324 


C38AD4 


JMP 


SETDMA 


D327 


C369D5 


JMP 


READ 


D32A 


C362D5 


JMP 


WRITE 


D32D 


C38CD6 


JMP 


LISTST 


D330 


C397D4 


JMP 


SECT RAN 


D333 


C31BE4 


DJDRV JMP 


DJSEL 



COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR TRANSLATION 

HOOK FOR SINGLE.COM PROGRAM 

***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 
***************************************************************** 



D336 0D0A0A 



PROMPT DB 



ACR, ALF, ALF 



CP/M MACRO ASSEM 2.0 

D339 35 

D33A 36 

D33B 4B2043502F 

D348 32 

D349 2E 

D34A 32 

D34B 2C20436269 

D357 332E 

D359 30 

D35A 0D0A 

D35C 466F722054 

D387 402030 



D38A 45 



D38B 30 

D38C 3030482E 
D390 0D0A00 



#004 

DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

IF 

DB 

ELSE 

DB 

ENDIF 

IF 

DB 

ELSE 

DB 

ENDIF 

DB 

DB 



*** Cbios For CP/M Ver. 2.2 *** 

;CP/M MEMORY SIZE 



;CP/M VERSION NUMBER 



'0'+MSIZE/l0 
'0'+(MSIZE MOD 10) 
'K CP/M Vers. ' 
CPMREV/l0+'0' 

t I 

(CPMREV MOD 10)+ '0' 

' , Cbios rev * 

REVNUM/l0+'0* , ' . ' 

REVNUM MOD 10+*0' 

ACR,ALF 

'For Thinker Toys Disk Jockey 2D Controller ' 

'<a 0' 



;CBIOS REVISION NUMBER 



ORIGIN/4096 > 10 
ORIGIN/4096+ 'A * -10 

ORIGIN/4096+'0' 



;CONTROLLER ORIGIN (HEX) 



(ORIGIN/256 AND 0FH) > 10 
(ORIGIN/256 AND 0FH)+'A'-10 

(ORIGIN/256 AND 0FH)+*0' 

*00H. ' 
ACR,ALF,0 



***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 

***************************************************************** 

GET A CHARACTER OF THE MESSAGE 

BUMP TEXT POINTER 

TEST FOR END 

RETURN IF DONE 

SAVE POINTER TO TEXT 

OUTPUT CHARACTER IN C 

OUTPUT THE CHARACTER 

RESTORE THE POINTER 

CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 

***************************************************************** 



D393 7E 


MESSAGE MOV 


A,M 


D394 23 


INX 


H 


D395 A7 


ANA 


A 


D396 C8 


RZ 




D397 E5 


PUSH 


H 


D398 4F 


MOV 


C,A 


D399 CD0CD3 


CALL 


COUT 


D39C El 


POP 


H 


D39D C393D3 


JMP 


MESSAGE 



D3A0 310001 
D3A3 CD4CD7 
D3A6 2136D3 
D3A9 CD93D3 
D3AC AF 



CBOOT 



LXI 


SP,TPA 


CALL 


TINIT 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


A 



;SET UP STACK 

; INITIALIZE THE TERMINAL 

;PREP FOR SENDING SIGNON MESSAGE 

;SEND THE PROMPT 

? SELECT DISK A 



CP/M MACRO ASSEM 2.0 #005 *** Cbios For CP/M Ver. 2.2 *** 



D3AD 32E9D8 
D3B0 320400 



STA 
STA 



CPMDRV 
CDISK 



*************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H). * 

* * 

***************************************************************** 



D3B3 


218000 GOCPM LXI 


H, BUFF 


D3B6 


CD8AD4 


CALL 


SETDMA 


D3B9 


3EC3 


MVI 


A, (JMP) 


D3BB 


320000 


STA 


WBOT 


D3BE 


320500 


STA 


ENTRY 


D3C1 


2103D3 


LXI 


H,WBOOTE 


D3C4 


220100 


SHLD 


WBOT+1 


D3C7 


2106C5 


LXI 


H, BDOS+,6 


D3CA 


220600 


SHLD 


ENTRY+1 


D3CD 


AF 


XRA 


A 


D3CE 


32EED8 


STA 


BUFSEC 


D3D1 


32D5D5 


STA 


BUFWRTN* 


D3D4 


3A0400 


LDA 


CDISK 


D3D7 


4F 


MOV 


C,A 


D3D8 


11FBD3 


LXI 


D,CMNDBEG 


D3DB 


2108BD 


LXI 


H^CCP+3 


D3DE 


3E01 


MVI 


A,CMNDEND 


D3E0 


3207BD 


STA . 


CCP+7 


D3E3 


47 


MOV 


B,A 


D3E4 


CD37D6 


CALL 


MOVLOP 


D3E7 


3AF9D3 


LDA 


CWFLG 


D3EA 


A7 


ANA 


A 


D3EB 


3AFAD3 


LDA , 


AUTOFLG 


D3EE 


CAF2D3 


JZ • ,, 


CLDBOT 


D3F1 


IF 


RAR 




D3F2 


IF CLDBOT RAR 




D3F3 


DA00BD 


JC, 


CCP 


D3F6 


C303BD 


JMP. 


CCP+3 


D3F9 


00 CWFLG DB 






;SET UP INITIAL DMA ADDRESS 

; INITIALIZE JUMP TO WARM BOOT 

.•INITIALIZE JUMP TO BDOS 
? ADDRESS IN WARM BOOT JUMP 

; ADDRESS IN BDOS JUMP 

;A <- 

;DISK JOCKEY BUFFER EMPTY 

;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 

.•BEGINNING OF INITIAL COMMAND 
.•COMMAND BUFFER 
-CMNDBEG+1 ; LENGTH OF COMMAND 



; ENTER CP/M 

; COLD/WARM BOOT FLAG 

***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: * 

* * 

* 
* 
* 
* 
* 
***************************************************************** 



* - NEVER GIVE COMMAND. 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 
* 



D3FA 01 



AUTOFLG DB 



;AUTO COMMAND FEATURE 



CP/M MACRO ASSEM 2.0 #006 *** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE: * 

* * 

* CMNDBEG DB 'MBASIC MYPROG ' * 

* CMNDEND DB * 

* * 

* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. * 

* * 

***************************************************************** 



D3FB 00 



CMNDBEG DB 
CMNDEND DB 



; INITIAL COMMAND GOES HERE 



***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 

***************************************************************** 



D3FC 


310001 


WBOOT LXI 


SP, TPA 


D3FF 


3E01 


MVI 


A,l 


D400 


= 


WFLG EQU 


$-1 


D401 


A7 


ANA 


A 


D402 


3E01 


MVI 


A,l 


D404 


3200D4 


STA 


WFLG 


D407 


32F9D3 


STA 


CWFLG 


D40A 


CAB3D3 


JZ 


GOCPM 


D40D 


AF 


XRA 


A 


D40E 


3200D4 


STA 


WFLG 


D411 


4F 


MOV 


C,A 


D412 


CD33D3 


CALL 


DJDRV 


D415 


0E00 


MVI 


C,0 


D417 


CD2DE4 


CALL 


DJDEN 


D41A 


0E00 


MVI 


C,0 


D41C 


CD30E4 


CALL 


DJSIDE 


D41F 


3E0F 


MVI 


A, 15 


D421 


323FD4 


STA 


NEWSEC 


D424 


2100BC 


LXI 


H,CCP-100H 


D427 


225ED4 


SHLD 


NEWDMA 


D42A 


CD3ED4 


CALL 


WARMLOD 


D42D 


0100C2 


LXI 


B,CCP+500H 


D430 


CD12E4 


CALL 


DJDMA 


D433 


0E08 


MVI 


C,8 


D435 


CD0FE4 


CALL 


DJSEC 


D438 


CD72D4 


CALL 


WARMRD 


D43B 


C303C2 


JMP 


CCP+503H 


D43E 


3E0F 


WARMLOD MVI 


A, 15 


D43F 


= 


NEWSEC EQU 


$-1 



;SET UP STACK POINTER 

;TEST IF BEGINNING OR 

; ENDING A WARM BOOT 



;SET COLD/WARM BOOT FLAG 



; SELECT DRIVE A 

; SELECT SINGLE DENSITY 

; SELECT SIDE 

; INITIALIZE THE SECTOR TO READ 

;AND THE DMA ADDRESS 

;READ IN CP/M 

;LOAD ADDRESS FOR REST OF WARM BOOT 



.•PREVIOUS SECTOR 



CP/M MACRO ASSEM 2.0 #007 



D440 


3C 


INR 


A 


D441 


3C 


INR 


A 


D442 


FE1B 


CPI 


27 


D444 


DA56D4 


JC 


NOWRAP 


D447 


D609 


SUI 


9 


D449 


FE13 


CPI 


19 


D44B 


C8 


RZ 




D44C 


2A5ED4 


LHLD 


NEWDMA 


D44F 


1180FB 


LXI 


D,-480H 


D452 


19 


DAD 


D 


D453 


225ED4 


SHLD 


NEWDMA 


D456 


323FD4 


NOWRAP STA 


NEWSEC 


D459 


4F 


MOV 


C,A 


D45A 


CD0FE4 


CALL 


DJSEC 


D45D 


2100BC 


LXI 


H.CCP-100H 


D45E 


= 


NEWDMA EQU 


$-2 


D460 


110001 


LXI 


D f 100H 


D463 


19 


DAD 


D 


D464 


225ED4 


SHLD 


NEWDMA 


D467 


44 


MOV 


B,H 


D468 


4D 


MOV 


C,L 


D469 


CD12E4 


CALL 


DJDMA 


D46C 


CD72D4 


CALL 


WARMRD 


D46F 


C33ED4 


JMP 


WARMLOD 


D472 


01000A 


WARMRD LXI 


B, RETRIES* 


D475 


C5 


WRMREAD PUSH 


B 


D476 


CD0CE4 


CALL 


DJTRK 


D479 


CD15E4 


CALL 


DJREAD 


D47C 


CI 


POP 


B 


D47D 


D0 


RNC 




D47E 


05 


DCR 


B 


D47F 


C275D4 


JNZ 


WRMREAD 


D482 


C32AE4 


JMP 


DJERR 



*** Cbios For CP/M Ver. 2.2 *** 

7 UPDATE THE PREVIOUS SECTOR 

;WAS IT THE LAST ? 

;YES 



;SAVE THE NEW SECTOR TO READ 

;GET THE PREVIOUS DMA ADDRESS 
; UPDATE THE DMA ADDRESS 
;SAVE THE DMA ADDRESS 

?SET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

; CONTINUE IF SUCCESSFUL 

;KEEP TRYING 



***************************************************************** 

* * 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. * 

* * 

***************************************************** 



D485 


79 


SETSEC 


MOV 


A,C 


D486 


32E8D8 




STA 


CPMSEC 


D489 


C9 




RET 





;SAVE THE SECTOR NUMBER 
;CP/M SECTOR # 



***************************************************************** 

* * 

* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. * 

* * 

***************************************************************** 



D48A 


60 


SETDMA 


MOV 


H,B 


D48B 


69 




MOV 


L,C 


D48C 


22B5D5 




SHLD 


CPMDMA 


D48F 


C9 




RET 





;HL <- BC 

;CP/M DMA ADDRESS 



CP/M macro ASSEM 2.0 



#008 



*** Cbios For CP/M Ver. 2.2 ** : 



D490 0E00 



***************************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 

* * 

***************************************************************** 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
***************************************************************** 



D492 


79 


SETTRK 


MOV 


A,C 


D493 


32EAD8 




STA 


CPMTRK 


D496 


C9 




RET 





; A <- TRACK # 
;CP/M TRACK # 



***************************************************************** 

* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 

***************************************************************** 



D497 


03 


SECTRAN INX 


B 


D498 


D5 


PUSH 


D 


D499 


C5 


PUSH 


B 


D49A 


CD41D5 


CALL 


GETDPB 


D49D 


7E 


MOV 


A,M 


D49E 


B7 


ORA 


A 


D49F 


IF 


RAR 




D4A0 


91 


SUB 


C 


D4A1 


F5 


PUSH 


PSW 


D4A2 


FAAED4 


JM 


SIDETWO 


D4A5 


Fl 


SIDEA POP 


PSW 


D4A6 


CI 


POP 


B 


D4A7 


Dl 


POP 


D 


D4A8 


EB 


SIDEONE XCHG 




D4A9 


09 


DAD 


B 


D4AA 


6E 


MOV 


L,M 


D4AB 


2600 


MVI 


H,0 


D4AD 


C9 


RET 




D4AE 


010F00 


SIDETWO LXI 


B,15 


D4B1 


09 


DAD 


B 


D4B2 


7E 


MOV 


A,M 


D4B3 


E608 


ANI 


8 


D4B5 


CAA5D4 


JZ 


SIDEA 


D4B8 


Fl 


POP 


PSW 


D4B9 


CI 


POP 


B 


D4BA 


2F 


CMA 




D4BB 


3C 


INR 


A 


D4BC 


4F 


MOV 


C,A 



SAVE TABLE ADDRESS 

SAVE SECTOR # 

GET DPB ADDRESS INTO HL 

GET # OF CP/M SECTORS/ TRACK 

CLEAR CARY 

DIVIDE BY TWO 

SAVE ADJUSTED SECTOR 

DISCARD ADJUSTED SECTOR 
RESTORE SECTOR REQUESTED 
RESTOR ADDRESS OF XLT TABLE 
HL <- & (TRANSLATION TABLE) 
BC = OFFSET INTO TABLE 
HL <- PHYSICAL SECTOR 



; OFFSET TO SIDE BIT 

;TEST FOR DOUBLE SIDED 

; MEDIA IS ONLY SINGLE SIDED 

; RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 
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D4BD Dl 
D4BE CDA8D4 
D4C1 3E80 
D4C3 B5 
D4C4 6F 
D4C5 C9 



POP 


D 


CALL 


SIDEONE 


MVI 


A,80H 


ORA 


L 


MOV 


L,A 


RET 





;SIDE TWO BIT 

AND SECTOR 



***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE 
OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A 
PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 
DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 
DIFFERENT SECTOR SIZES: 

1) 128 BYTES SINGLE DENSITY. 

2) 256 BYTES DOUBLE DENSITY. 

3) 512 BYTES DOUBLE DENSITY. 

4) 1024 BYTES DOUBLE DENSITY. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



D4C6 
D4C7 
D4CA 
D4CC 
D4CF 
D4D0 
D4D2 
D4D5 
D4D7 
D4DA 
D4DD 
D4E0 
D4E3 
D4E6 
D4E8 
D4E9 
D4EA 
D4ED 
D4EE 
D4F0 
D4F1 
D4F2 
D4F5 
D4F6 
D4F7 
D4F9 
D4FC 
D4FF 
D500 
D501 
D504 



79 

32E9D8 

FE04 

D23DD5 

7B 

E601 

C224D5 

3E01 

32EBD8 

32EAD8 

CD20D6 

DA3DD5 

CD27E4 

E60C 

F5 

IF 

215AD5 

5F 

1600 

19 

E5 

CD41D5 

EB 

Dl 

0602 

CD37D6 

110800 

19 

E5 

2A07E0 

23 



SETDRV 



D505 7E 
D506 EE03 
D508 6F 



MOV 

STA 

CPI 

JNC 

MOV 

ANI 

JNZ 

MVI 

STA 

STA 

CALL 

JC 

CALL 

ANI 

PUSH 

RAR 

LXI 

MOV 

MVI 

DAD 

PUSH 

CALL 

XCHG 

POP 

MVI 

CALL 

LXI 

DAD 

PUSH 

LHLD 

I NX 

MOV 
XRI 
MOV 



A,C 

CPMDRV 

MAXDISK 

ZRET 

A,E 

1 

SETDRV1 

A,l 

TRUE SEC 

CPMTRK 

FILL 

ZRET 

DJSTAT 

0CH 

PSW 

H.XLTS 

E,A 

D,0 

D 

H 

GETDPB 

D 
B,2 

MOVLOP 

D,8 

D 

H 

ORIGIN+7 
H 

A,M 

3 

L,A 



ySAVE THE DRIVE # 

; CHECK FOR A VALID DRIVE # 

; ILLEGAL DRIVE # 

;TEST IF DRIVE EVER LOGGED IN BEFORE 

;BIT OF E = -> NEVER SELECTED BEFORE 
? SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 
7 TEST FOR ERROR RETURN 
?GET STATUS ON CURRENT DRIVE 
; STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



;SAVE POINTER TO PROPER XLT 
;GET DPH POINTER INTO DE 



; NUMBER OF BYTES TO MOVE 
?MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 

;GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
;BUMP TO LOOK AT ADDRESS OF 
; UART STATUS LOCATION 

; ADJUST FOR PROPER REV DJ 
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D509 


26E3 


MVI 


H, (ORIGIN 


D50B 


7E 


MOV 


A,M 


D50C 


E608 


ANI 


DBLSID 


D50E 


1128D8 


LXI 


D,DPB128S 


D511 


C217D5 


JNZ 


SIDEOK 


D514 


1168D8 


LXI 


D,DPB128D 


D517 


EB 


SIDEOK XCHG 




D518 


Dl 


POP 


D 


D519 


Fl 


POP 


PSW 


D51A 


17 


RAL 




D51B 


17 


RAL 




D51C 


4F 


MOV 


C,A 


D51D 


0600 


MVI 


B,0 


D51F 


09 


DAD 


B 


D520 


EB 


XCHG 




D521 


73 


MOV 


M,E 


D522 


23 


I NX 


H 


D523 


72 


MOV 


M,D 


D524 


CD41D5 


SETDRV1 CALL 


GETDPB 


D527 


010F00 


LXI 


B,15 


D52A 


09 


DAD 


B 


D52B 


7E 


MOV 


A,M 


D52C 


E607 


ANI 


7H 


D52E 


326ED5 


STA 


SECSIZ 


D531 


7E 


MOV 


A,M 


D532 


IF 


RAR 




D533 


IF 


RAR 




D534 


IF 


RAR 




D535 


IF 


RAR 




D536 


E60F 


ANI 


0FH 


D538 


32A4D5 


STA 


SECPSEC 


D53B 


EB 


XCHG 




D53C 


C9 


RET 




D53D 


210000 


ZRET LXI 


H,0 


D540 


C9 


RET 





; CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB * S 

;BASE OF DOUBLE SIDED DPB ' S 
;HL <- DBP BASE, DE <- &DPH.DPB 
; RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



?PUT DPB ADDRESS IN DPH 



?GET ADDRESS OF DPB IN HL 
; OFFSET TO SECTOR SIZE 

;GET SECTOR SIZE 



;HL <- DPH 



;SELDRV ERROR EXIT 



***************************************************************** 

* * 

* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY * 

* SELECTED DRIVE, DE POINTING TO DPH. * 

* * 
***************************************************************** 



D541 


3AE9D8 GETDPB LDA 


CPMDRV 


D544 


6F 


MOV 


L,A 


D545 


2600 


MVI 


H,0 


D547 


29 


DAD 


H 


D548 


29 


DAD 


H 


D549 


29 


DAD 


H 


D54A 


29 


DAD 


H 


D54B 


11A8D8 


LXI 


D,DPZERO 


D54E 


19 


DAD 


D 


D54F 


E5 


PUSH 


H 


D550 


110A00 


LXI 


D,10 


D553 


19 


DAD 


D 



;GET DRIVE # 
;FORM OFFSET 



;BASE OF DPH'S 

?SAVE ADDRESS OF DPH 
; OFFSET TO DPB 



CP/M MACRO ASSEM 2.0 #011 *** Cbios For CP/M Ver. 2.2 *** 

D554 7E MOV A,M ;GET LOW BYTE OF DPB ADDRESS 

D555 23 

D556 66 MOV H,M ;GET LOW BYTE OF DPB 

D557 6F 

D558 Dl 

D559 C9 

***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

***************************************************************** 



MOV 


A,M 


I NX 


H 


MOV 


H,M 


MOV 


L,A 


POP 


D 


RET 





D55A 5AD7 
D55C 75D7 
D55E AAD7 
D560 E7D7 



DW 


XLT128 


DW 


XLT256 


DW 


XLT512 


DW 


XLT124 



XLTS DW XLT128 ;XLT FOR 128 BYTE SECTORS 

;XLT FOR 256 BYTE SECTORS 

;XLT FOR 512 BYTE SECTORS 

;XLT FOR 1024 BYTE SECTORS 

***************************************************************** 

* * 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 

***************************************************************** 



D562 79 
D563 32CCD5 
D566 3E01 
D568 06 



WRITE 



MOV 


A,C 


STA 


WRITTYP 


MVI 


A,l 


DB 


(MVI) OR (B*8) 



;SAVE WRITE COMMAND TYPE 

SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 

THE FOLLOWING "XRA A" TO 

BE SKIPPED OVER. 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. * 

* * 

***************************************************************** 



D569 AF 
D56A 32B8D5 



READ 



XRA 

STA 



A 
RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



***************************************************************** 

* * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 
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* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE * 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * 

* * 

***************************************************************** 



D56D 


0600 


REDWRT 


MVI , 


B,0 


D56E 


= 


SECSIZ 


EQU 


$-1 


D56F 


3AE8D8 




LDA 


CPMSEC 


D572 


F5 




PUSH 


PSW 


D573 


E680 




ANI 


80H 


D575 


4F 




MOV 


C,A 


D576 


Fl 




POP 


PSW 


D577 


E67F 




ANI 


7FH 


D579 


3D 




DCR 


A 


D57A 


05 


DIVLOOP 


DCR 


B 


D57B 


CA83D5 




JZ 


DIVDONE 


D57E 


B7 




ORA 


A 


D57F 


IF 




RAR 




D580 


C37AD5 




JMP 


DIVLOOP 


D5S3 


3C 


DIVDONE 


INR 


A 


D584 


Bl 




ORA 


C 


D585 


32EBD3 




STA 


TRUE SEC 


D588 


21E9D8 




LXI 


H,CPMDRV 


D58B 


11ECD8 




LXI 


D,BUFDRV 


D58E 


0604 




MVI 


B,4 


D590 


05 


DTSLOP 


DCR 


B 


D591 


CA9FD5 




JZ 


MOVE 


D594 


1A 




LDAX 


D 


D595 


BE 




CMP 


M 


D596 


23 




I NX 


H 


D597 


13 




I NX 


D 


D598 


CA90D5 




JZ 


DTSLOP 



THE IS MODIFIED TO CONTAIN THE LOG 2 
OF THE PHYSICAL SECTOR SIZE/128 
ON THE CURRENTLY SELECTED DISK. 

GET THE DESIRED CP/M SECTOR # 

TEMPORARY SAVE 

SAVE ONLY THE SIDE BIT 

REMEMBER THE SIDE 

GET THE SECTOR BACK 

FORGET THE SIDE BIT 

TEMPORARY ADJUSTMENT 

UPDATE REPEAT COUNT 

CLEAR THE CARY FLAG 

DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



RESTORE THE SIDE BIT 

SAVE THE PHYSICAL SECTOR NUMBER 

POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

COUNT LOOP 

TEST IF DONE WITH COMPARE 

YES, MATCH. GO MOVE THE DATA 

GET A BYTE TO COMPARE 

TEST FOR MATCH 

BUMP POINTERS TO NEXT DATA ITEM 



; MATCH, CONTINUE TESTING 



***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSARY AND THEN REFILL. * 

* * 

***************************************************************** 



D59B CD20D6 
D59E D8 



CALL FILL 
RC 



; FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;NO GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 

***************************************************************** 



D59F 3AE8D8 
D5A2 3D 



MOVE LDA 
DCR 



CPMSEC 
A 



;GET THE CP/M SECTOR TO TRANSFER 
; ADJUST TO PROPER SECTOR IN BUFFER 
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D5A3 


E600 




ANI 





D5A4 


= 


SECPSEC 


EQU 


$-1 


D5A5 


6F 




MOV 


L,A 


D5A6 


2600 




MVI 


H,0 


D5A8 


29 




DAD 


H 


D5A9 


29 




DAD 


H 


D5AA 


29 




DAD 


H 


D5AB 


29 




DAD 


H 


D5AC 


29 




DAD 


H 


D5AD 


29 




DAD 


H 


D5AE 


29 




DAD 


H 


D5AF 


11EFD8 




LXI 


D, BUFFER 


D5B2 


19 




DAD 


D 


D5B3 


EB 




XCHG 




D5B4 


210000 




LXI 


H,0 


D5B5 


=e 


CPMDMA 


EQU 


$-2 


D5B7 


3E00 




MVI 


A,0 


D5B8 


= 


RDWR 


EQU 


$-1 


D5B9 


A7 




ANA 


A 


D5BA 


C2C2D5 




JNZ 


INTO 


D5BD 


CD35D6 


OUTOF 


CALL 


MOVER 


D5C0 


AF 




XRA 


A 


D5C1 


C9 




RET 




D5C2 


EB 


INTO 


XCHG 




D5C3 


CD35D6 




CALL 


MOVER 


D5C6 


3E01 




MVI 


A,l 


D5C8 


32D5D5 




STA 


BUFWRTN 


D5CB 


3E00 




MVI 


A,0 


D5CC 


= 


WRITTYP 


EQU 


$-1 


D5CD 


3D 




DCR 


A 


D5CE 


3E00 




MVI 


A,0 


D5D0 


32CCD5 




STA 


WRITTYP 


D5D3 


C0 




RNZ 





STRIP OFF HIGH ORDERED BITS 

THE IS MODIFIED TO REPRESENT THE # OF 

CP/M SECTORS PER PHYSICAL SECTORS 
PUT INTO HL 

;FORM OFFSET INTO BUFFER 



BEGINNING ADDRESS OF BUFFER 

FORM BEGINNING ADDRESS OF SECTOR TO TRANSFER 
DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED TO 
CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

; SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;NO ERROR EXIT 



***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 

***************************************************************** 



D5D4 3E00 


FLUSH MVI 


A,0 


D5D5 = 


BUFWRTN EQU 


$-1 


D5D6 A7 


ANA 


A 


D5D7 C8 


RZ 




D5D8 2118E4 


LXI 


H,DJWRITE 



;THE IS MODIFIED TO REFLECT IF 

THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 
;WRITE OPERATION 



***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 
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* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. * 

* * 
***************************************************************** 



; RESET BUFFER WRITTEN FLAG 

j SET UP THE READ/WRITE OPERATION 

;MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE THE RETRY COUNT 

;GET DRIVE NUMBER INVOLVED IN THE OPERATION 

; SELECT THE DRIVE 

. TE ST FOR TRACK ZERO 



HOME THE DRIVE IF TRACK 

RESTORE TRACK # 

SEEK TO PROPER TRACK 

GET SECTOR INVOLVED IN OPERATION 

SAVE THE SECTOR # 

BIT OF A EQUALS SIDE # 

STRIP OFF UNNECESSARY BITS 

C <- SIDE # 

SELECT THE SIDE 

A <- SECTOR # 

STRIP OFF SIDE BIT 

C <- SECTOR # 

SET THE SECTOR TO TRANSFER 

SET THE DMA ADDRESS 

;THE READ OPERATION IS MODIFIED TO WRITE 

; RESTORE THE RETRY COUNTER 

;NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 

;TRY AGAIN 

***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 

***************************************************************** 



D5DB 


AF 


PREP XRA 


A 


D5DC 


32D5D5 


STA 


BUFWRTN 


D5DF 


2212D6 


SHLD 


RETRYOP 


D5E2 


060A 


MVI 


B, RETRIES 


D5E4 


C5 


RETRYLP PUSH 


B 


D5E5 


3AECD8 


LDA 


BUFDRV 


D5E8 


4F 


MOV 


C,A 


D5E9 


CD33D3 


CALL 


DJDRV 


D5EC 


3AEDD8 


LDA 


BUFTRK 


D5EF 


A7 


ANA 


A 


D5F0 


4F 


MOV 


C,A 


D5F1 


C5 


PUSH 


B 


D5F2 


CC09E4 


CZ 


DJHOME 


D5F5 


CI 


POP 


B 


D5F6 


CD0CE4 


CALL 


DJTRK 


D5F9 


3AEED8 


LDA 


BUFSEC 


D5FC 


F5 


PUSH 


PSW 


D5FD 


07 


RLC 




D5FE 


E601 


ANI 


1 


D600 


4F 


MOV 


C,A 


D601 


CD30E4 


CALL 


DJSIDE 


D604 


Fl 


POP 


PSW 


D605 


E67F 


ANI 


7FH 


D607 


4F 


MOV 


C,A 


D608 


CD0FE4 


CALL 


DJSEC 


D60B 


01EFD8 


LXI 


B, BUFFER 


D60E 


CD12E4 


CALL 


DJDMA 


D611 


CD15E4 


CALL 


DJREAD 


D612 


= 


RETRYOP EQU 


?-2 


D614 


CI 


POP 


B 


D615 


3E00 


MVI 


A,0 


D617 


D0 


RNC 




D618 


05 


DCR 


B 


D619 


37 


STC 




D61A 


3EFF 


MVI 


A,0FFH 


D61C 


C8 


RZ 




D61D 


C3E4D5 


JMP 


RETRYLP 



D620 CDD4D5 
D623 D8 
D624 11E9D8 
D627 21ECD8 
D62A 0603 
D62C CD37D6 
D62F 2115E4 



FILL 



CALL 


FLUSH 


RC 




LXI 


D,CPMDRV 


LXI 


H, BUFDRV 


MVI 


B,3 


CALL 


MOVLOP 


LXI 


H, DJREAD 



; FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

; UPDATE THE DRIVE, TRACK, AND SECTOR 

; NUMBER OF BYTES TO MOVE 
;COPY THE DATA 



CP/M MACRO ASSEM 2.0 #015 *** Cbios For CP/M Ver . 2.2 *** 
D632 C3DBD5 JMP PREP 



D635 0680 

\S637 1A 

D638 77 

I D639 13 

j D63A 23 

D63B 05 

\_D63C C237D6 

D63P C9 



E403 = 
E406 = 



D640 21BAD6 
D643 C352D6 



; SELECT DRIVE, TRACK, AND SECTOR. 
THEN READ THE BUFFER 

***************************************************************** 

* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 

* * 
***************************************************************** 



MOVER MVI 
MOVLOP LDAX 
'MOV 
I NX 
I NX 
DCR 
JNZ 
RET 



B,128 

D 

M,A 

D 

H 

B 

MOVLOP 



; LENGTH OF TRANSFER 
;GET A BTE OF SOURCE 
;MOVE IT 
;BUMP POINTERS 

; UPDATE COUNTER 

; CONTINUE MOVING UNTIL DONE 



***************************************************************** 

* * 

* TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT I/O CONFIGURATION, JUST * 

* CHANGE THE ENTRIES IN THE TABLES. * 

* * 
***************************************************************** 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



; INPUT FROM THE DISK JOCKEY 2D 
; OUTPUT TO THE DISK JOCKEY 2D 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 
THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 



* PERFORMED. * 

* * 
***************************************************************** 



CONST LXI 
JMP 



H,CSTBLE 
CONIN1 



; BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



************ ***************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A * 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL * 

* OCCUR TO THE CORRECT READER STATUS. * 
* 



***************************************************************** 



D646 21C2D6 CSREADR LXI 



H.CSRTBLE 



; BEGINNING OF READER STATUS TABLE 
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D649 C36FD6 



JMP 



READERA 



***************************************************************** 

* * 

* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* IOBYTE. * 

* * 

***************************************************************** 



D64C CDD4D5 
D64F 2192D6 



CONIN CALL 
LXI 



FLUSH 
H,CITBLE 



; FLUSH THE DISK BUFFER 

.•BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 

* OF IOBYTE. THIS IS USED BY CONIN, CONOUT, AND CONST. 
* 



D652 3A0300 
D655 17 



CONIN 1 



LDA 
RAL 



IOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 
* 



D656 E606 SELDEV ANI 
D658 1600 MVI 


6H 
D,0 


D65A 5F 


MOV 


E,A 


D65B 19 
D65C 7E 


DAD 
MOV 


D 
A,M 


D65D 23 


I NX 


H 


D65E 66 
D65F 6F 


MOV 
MOV 


H,M 
L,A 


D660 E9 


PCHL 





; STRIP OFF UNWANTED BITS 
;FORM OFFSET 

;ADD OFFSET 

;PICK UP HIGH BYTE 

;PICK UP LOW BYTE 
;FORM ADDRESS 
;GO THERE 1 



***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF IOBYTE. * 

* * 
***************************************************************** 



D661 


C5 


CONOUT 


PUSH 


B 


D662 


CDD4D5 




CALL 


FLUSH 


D665 


CI 




POP 


B 


D666 


219AD6 




LXI 


H,COTBLE 


D669 


C352D6 




JMP 


CONIN1 



SAVE THE CHARACTER 

FLUSH THE DISK BUFFER 

RESTORE THE CHARACTER 

BEGINNING OF THE CHARACTER OUT TABLE 

DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE * 

* READER IS SELECTED FROM BITS 2 AND 3 OF IOBYTE. * 



***************************************************************** 



CP/M MACRO ASSEM 2.0 #017 *** Cbios For CP/M Ver. 2.2 *** 
D66C 21B2D6 READER LXI H,RTBLE ;BEGINNING OF READER INPUT TABLE 

* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 

* BY CSREADER. 
* 



D66F 3A0300 



READERA LDA 



IOBYTE 



* ENTRY AT READER1 WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 
* 



D672 IF 
D673 C356D6 



READR1 RAR 
JMP 



SELDEV 



***************************************************************** 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * 

* FROM BITS 4&5 OF IOBYTE. * 

* * 

***************************************************************** 



D676 21AAD6 

D679 3A0300 



PUNCH 



LXI 

LDA 



H,PTBLE 
IOBYTE 



; BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 



D67C IF 
D67D IF 
D67E C372D6 



PNCH1 RAR 
RAR 
JMP 



READR1 



***************************************************************** 

* * 

* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF IOBYTE * 

* * 

***************************************************************** 



D631 21A2D6 
D684 3A0300 
D687 IF 
D688 IF 
D689 C37CD6 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



; BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

***************************************************************** 



D68C 21CAD6 
D68F C384D6 



LISTST 



LXI 
JMP 



H,LSTBLE 
LIST1 



; BEGINNING OF THE LIST DEVICE STATUS 



CP/M macro ASSEM 2.0 



#018 



r ** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL I/O * 

* DEVICES ARE DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 

************************************************************** 







* 

* 


CONSOLE INPUT 


TABLE 


D692 


12D7 


CITBLE 


DW 


CIUC1 


D694 


27D7 






DW 


CICRT 


D696 


6CD6 






DW 


READER 


D698 


03E4 






DW 


CITTY 



INPUT FROM USER CONSOLE 1 (CURRENTLY 

SWBD PARALLEL PORT 4) 
INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM TTY (CURRENTLY INPUT FROM 

DISK JOCKEY 2D) 



* CONSOLE OUTPUT TABLE 



D69A 


D2D6 


COTBLE 


DW 


COCRT 


D69C 


D2D6 






DW 


COCRT 


D69E 


81D6 






DW 


LIST 


D6A0 


06E4 






DW 


COTTY 






* 
* 

* 


LIST 


DEVICE 


TABLE 


D6A2 


06E4 


LTBLE 


DW 


COTTY 


D6A4 


D6D6 






DW 


COPTR 


D6A6 


E8D6 






DW 


COLPT 


D6A8 


F3D6 






DW 


COUL1 



OUTPUT TO CRT (MSDV) 
OUTPUT TO CRT (MSDV) 

OUTPUT TO LIST DEVICE (DEPENDS ON 
BITS 6&7 OF IOBYTE) 

OUTPUT TO TTY (CURRENTLY OUTPUT TO 
DISK JOCKEY 2D) 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 



* PUNCH DEVICE TABLE 
* 



D6AA 06E4 
D6AC D6D6 



PTBLE DW 
DW 



COTTY 
COPTR 



OUTPUT TO THE TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 



CP/M MACRO ASSEM 2.0 


#019 


*** C 


D6AE E8D6 


DW 


COUP1 


D6B0 E8D6 


DW 


COUP2 



*** Cbios For CP/M Ver. 2.2 *** 



OUTPUT TO USER PUNCH 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 (CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



* READER DEVICE INPUT TABLE 
* 



D6B2 03E4 
D6B4 27D7 
D6B6 27D7 
D6B8 27D7 



RTBLE 



DW 


CITTY 


DW 


CIPTR 


DW 


CIUR1 


DW 


CIUR2 



INPUT FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, INPUT FROM 2D) 
INPUT FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1 ) 







* 
* 


CONSOLE STATUS TABLE 


D63A 


1ED7 


CSTBLE 


DW 


CSUC1 


D6BC 


3BD7 






DW 


CSCRT 


D6BE 


46D6 






DW 


CSREADR 


D6C0 


33D7 


* 




DW 


CSTTY 



STATUS FROM SWBD PARALLEL PORT 4, AS 

READ FROM ATTN BIT 0) 
STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM READER (DEPENDS ON READER DEVICE ) 

STATUS OF TTY (CURRENTLY STSTUS FROM 
DISK JOCKEY 2D) 



* STATUS FROM READER DEVICE 
* 



D6C2 


33D7 


CSRTBLE 


DW 


CSTTY 


D6C4 


3BD7 




DW 


CSPTR 


D6C6 


3BD7 




DW 


CSUR1 


D6C8 


3BD7 




DW 


CSUR2 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM LIST DEVICE 
* 



D6CA 


49D7 


LSTBLE 


DW 


READY 


D6CC 


49D7 




DW 


READY 


D6CE 


44D7 




DW 


LSLPT 


D6D0 


44D7 




DW 


LSLPT 



; CONSOLE ALWAYS READY 
7 GET LIST STATUS 



***************************************************************** 

* * 

* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN * 



CP/M MACRO ASSEM 2.0 #020 *** Cbios For CP/M Ver. 2.2 *** 

***************************************************************** 



D6D2 


79 


D6D3 


C300E8 


D6D6 


DB02 


D6D3 


E608 


D6DA 


CAD6D6 


D6DD 


DB05 


D6DF 


E601 


D6E1 


CADDD6 


D6E4 


79 


D6E5 


D300 


D6E7 


C9 



* MSDV VIDEO DRIVER 
* 

COCRT MOV A,C 
JMP MSDV 

COPTR "~Yf-"™ : ~- 






yMSDV WANTS DATA IN A 
;GO THERE 




; INPUT FROM PORT 2 
;WAIT UNTIL OK TO SEND 



; BUFFER FULL? 

;WAIT UNTIL PRINTER READY 
; OUTPUT THE CHARACTER 



eoc&r 



ANI 8 

JZ COPTR 

COPTR1 IN 5 

ANI 1 

JZ COPTR1 

MOV A,C 

OUT 

RET 
* 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE * 

* SWITCHBOARD SERIAL PORT 1. * 

* * 
***************************************************************** 



Iff 


•/OK+l 


Art 


L 


?* 


cocer 


/*rt 


*/«. 


oo r 


v&x 


jeer 





D6E8 = 


COPTP 


EQU 


$ 


D6E8 = 


COUP1 


EQU 


$ 


D6E8 = 


COUP 2 


EQU 


$ 


D6E8 DB02 


COLPT 


IN 


2 


D6EA E680 




ANI 


80H 


D6EC CAE8D6 




JZ 


COLPT 


D6EF 79 




MOV 


A,C 


D6F0 D301 




OUT 


1 


D6F2 C9 




RET 





.•OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

; OUTPUT FROM USER PUNCH 2 

; OUTPUT FROM LINE PRINTER, GET STATUS 

;WAIT UNTIL OK TO SEND 

; OUTPUT THE CHARACTER 



************************** * * ************************************* 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 
***************************************************************** 



D6F3 


CDE8D6 


D6F6 


3A11D7 


D6F9 


3D - 


D6FA 


3211D7 


D6FD 


C0 


D6FE 


3E4E 


D700 


3211D7 


D703 


0E03 


D705 


CDE8D6 


D708 


CD27D7 


D70B 


FE06 


D70D 


C208D7 



COUL1 



PWAIT 



CALL 


COLPT 


LDA 


COUNT 


DCR 


A 


STA , 


COUNT 


RNZ 




MVI 


A, 78 


STA 


COUNT 


MVI 


CAETX 


CALL 


COLPT 


CALL 


CIPTR „ 


CPI 


AACK 


JNZ 


PWAIT 



; OUTPUT THE CHARACTER 



CP/M MACRO ASSEM 2.0 #021 *** Chios For CP/M Ver. 2.2 *** 



D710 C9 
D711 32 



RET 
COUNT DB 



50 



**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD * 

* PARALLEL PORT 4, WITH STATUS ON ATTENTION PORT BIT 0. * 

* * 

**************************************************************** 



D712 DB03 
D714 E601 
D716 CA12D7 
D719 DB04 
D71B E67F 
D71D C9 

D71E DB03 
D720 E601 
D722 EE01 
D724 C336D7 



CIUC1 IN 3 ;GET ATTENTION BYTE 

;GET BIT ONLY 
;WAIT FOR CHARACTER 
?GET CHARACTER 
? STRIP OFF THE PARITY 



IN 


3 


ANI 


1 


JZ 


CIUC1 


IN 


4 


ANI 


7FH 


RET 




IN 


3 


ANI 


1 


XRI 


1 


JMP 


STAT 



CSUC1 IN 3 ;GET ATTENTION BYTE 

;GET BIT ONLY 
; CHANGE POLARITY 
; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



D727 


= 


CICRT 


EQU 


$ 


D727 


= 


CIUR1 


EQU 


$ 


D727 


= 


CIUR2 


EQU 


$ 


D727 


DB02 


CIPTR 


IN 


2 


D729 


E640 




ANI 


40H 


D72B 


CA27D7 




JZ 


CIPTR 


D72E 


DB01 




IN 


1 


D730 


E67F 




ANI 


7FH 


D732 


C9 




RET 





; INPUT FROM CRT 

7 INPUT FROM USER READER 1 

; INPUT FROM USER READER 2 

? INPUT FROM PAPER TAPE READER, GET STATUS 

?WAIT FOR CHARACTER 



; STRIP OFF THE PARITY 



***************************************************************** 

* * 

* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. * 

* * 

***************************************************************** 



D733 CD21E4 
D736 3E00 
D733 C0 
D739 3D 
D73A C9 



CSTTY CALL 

STAT MVI 

RNZ 

DCR 

RET 



DJTSTAT 
A,0 



; STATUS FROM DISK JOCKEY 2D 

;PREP FOR ZERO RETURN 

; NOTHING FOUND 

7 RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. , * 



CP/M MACRO ASSEM 2.0 #022 *** Cbios For CP/M Ver. 2.2 *** 



* * 
***************************************************************** 

; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

7 STATUS OF PAPER TAPE READER 

; STATUS FROM CRT, GET STATUS 

; STRIP OF DATA READY BIT 

;MAKE CORRECT POLARITY 

; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* LIST DEVICE STATUS ROUTINES. * 

* * 
***************************************************************** 



D73B 


= 


CSUR1 


EQU 


$ 


D73B 


— 


CSUR2 


EQU 


$ 


D73B 


= 


CSPTR 


EQU 


$ 


D73B 


DB02 


CSCRT 


IN 


2 


D73D 


E640 




ANI 


40H 


D73F 


EE40 




XRI 


40H 


D741 


C336D7 




JMP 


STAT 



D744 DB02 
D746 E680 
D748 C8 
D749 3EFF 
D74B C9 



LSLPT 



READY 



IN 

ANI 

RZ 

MVI 

RET 



2 
80H 

A,0FFH 



;ALL OTHER DEVICES WAIT 



* THIS INITIALLIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO * 

* DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS * 

* PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1. * 

* THIS 1 IS ADDED TO IOBYTE TO CHANGE THE CONSOLE INPUT FROM * 

* THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL * 

* PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. * 

* * 

***************************************************************** 



D74C 0E19 
D74E DB07 
D750 E601 
D752 C6C0 
D754 320300 
D757 C30CD3 



TINIT 



MVI 


C , CLEAR 


IN 


7 


ANI 


1 


ADI 


INTIOBY 


STA 


IOBYTE 


JMP 


COUT 



; INITIALIZE THE TERMINAL ROUTINE 
;GET KEYBOARD INTERLOCK BYTE 
;GET BIT 1 ONLY 
;ADD INTIOBY TO KEYBOARD BIT 
; INITIALIZE IOBYTE 



***************************************************************** 

* * 

* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES * 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M * 

* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW * 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE * 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE * 

* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 
***************************************************************** 



D75A 00 XLT128 DB 

D75B 01070D1319 DB 

D760 05031117 DB 

D764 03090F15 DB 





1,7,13,19,25 
5,11,17,23 
3,9,15,21 



cp/m macro ASSEM 2.0 



#023 



*** Cbios For CP/M Ver. 2.2 **' 



D768 02080E141A DB 

D76D 060C1218 DB 

D771 040A1016 DB 

D775 00 XLT256 DB 

D776 0102131425 DB 

D77C 0304151627 DB 

D782 0506171829 DB 

D788 0708191A2B DB 

D78E 090A1B1C2D DB 

D794 0B0C1D1E2F DB 

D79A 0D0E1F2031 DB 

D7A0 0F10212233 DB 

D7A6 11122324 DB 

D7AA 00 XLT512 DB 

D7AB 0102030411 DB 

D7B3 2122232431 DB 

D7BB 0506070815 DB 

D7C3 2526272835 DB 

D7CB 090A0B0C19 DB 

D7D3 292A2B2C39 DB 

D7DB 0D0E0F101D DB 

D7E3 2D2E2F30 DB 

D7E7 00 XLT124 DB 

D7E8 0102030405 DB 

D7F0 191A1B1C1D DB 

D7F8 3132333435 DB 

D800 090A0B0C0D DB 

D808 2122232425 DB 

D810 393A3B3C3D DB 

D818 1112131415 DB 

D820 292A2B2C2D DB 



2,8,14,20,26 

6,12,18,24 

4,10,16,22 



9,20,37,38 

1,22,39,40 

3,24,41,42 

5,26,43,44 

27,28,45,46 

,29,30,47,48 

,31,32,49,50 

,33,34,51,52 

,35,36 





1,2,1 

3,4,2 

5,6,2 

7,8,2 

9,10, 

11,12 

13,14 

15,16 

17,18 



1,2,3,4,17,18,19,20 

33,34,35,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37,38,39,40,53,54,55,56 

9,10,11,12,25,26,27,28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31,32 

45,46,47,48 



1,2,3,4, 5,6,7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 



***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. THE TABLES ARE CURRENTLY STORED * 

* ON TRACK SECTOR 13. THEY ARE READ INTO MEMORY BY THE GOCPM * 

* ROUTINE IN THE CBIOS FOR CP/M VER 2.0. * 

* * 

***************************************************************** 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D823 


1A00 


DPB128S DW 


26 


D82A 


03 


DB 


3 


D82B 


07 


DB 


7 


D82C 


00 


DB 






;CP/M SECTORS/TRACK 

?BSH 

;BLM 

;EXM 



CP/M MACRO ASSEM 2.0 #024 *** Cbios For CP/M Ver. 2.2 *** 



D82D F200 
D82F 3F00 
D831 C0 
D832 00 
D833 1000 
D835 0200 
D837 01 



DW 
DW 
DB 
DB 
DW 
DW 
DB 



242 ;DSM 

63 -DRM 

0C0H -AL0 

;AL1 

16 -CKS 

2 ;OFF 

1H ;16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

;LOG2(#BYTES PER SECTOR/ 128) + 1 + 

;8 IF DOUBLE SIDED. 

******************** *************** ****************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
*********************************** ****************************** 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/128) + 1 + 

8 IF DOUBLE SIDED. 

*************************** ************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
***************************************************************** 



D838 


3400 


DPB256S DW 


52 


D83A 


04 


DB 


4 


D83B 


0F 


DB 


15 


D83C 


00 


DB 





D83D 


F200 


DW 


242 


D83F 


7F00 


DW 


127 


D841 


C0 


DB 


0C0H 


D842 


00 


DB 





D843 


2000 


DW 


32 


D845 


0200 


DW 


2 


D847 


12 


DB 


12H 



D848 


3C00 


DPB512S DW 


60 


D84A 


04 


DB 


4 


D84B 


0F 


DB 


15 


D84C 


00 


DB 





D84D 


1801 


DW 


280 


D84F 


7F00 


DW 


127 


D851 


C0 


DB 


0C0 


D852 


00 


DB 





D853 


2000 


DW 


32 


D855 


0200 


DW 


2 


D857 


33 


DB 


33H 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

LOG 2 

8 IF 



SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) 
(#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 



-1) + 



************************* **************************************** 
* * 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, 

* DOUBLE DENSITY, AND SINGLE SIDED. 



* 
* 



CP/M macro ass 








#325 *** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 



D858 


4000 


DP1024S DW 


64 


D85A 


04 


DB 


4 


D85B 


0F 


DB 


15 


D85C 


00 


DB 





D85D 


2B01 


DW 


299 


D85F 


7F00 


DW 


127 


D861 


C0 


DB 


0C0H 


D862 


00 


DB 





D863 


2000 


DW 


32 


D8S5 


0200 


DW 


2 


D867 


74 


DB 


74H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

L0G2(#BYTES PER SECTOR/128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D868 


3400 


DPB128D DW 


52 


D86A 


04 


DB 


4 


D86B 


0F 


DB 


15 


D86C 


01 


DB 


1 


D86D 


F200 


DW 


242 


D36F 


7F00 


DW 


127 


D871 


C0 


DB 


0C0H 


D872 


00 


DB 





D873 


2000 


DW 


32 


D875 


0200 


DW 


2 


D877 


09 


DB 


9H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 
***************************************************************** 



D878 


6800 


DPB256D DW 


104 


D87A 


04 


DB 


4 


D87B 


0F 


DB 


15 


D87C 


00 


DB 





D87D 


E601 


DW 


486 


D87F 


FF00 


DW 


255 


D881 


F0 


DB 


0F0H 


D882 


00 


DB 





D883 


4000 


DW 


64 


D885 


0200 


DW 


2 


D887 


1A 


DB 


1AH 



?CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

• OFF 



***************************************************************** 



CP/M MACRO ASSEM 2.0 #026 *** Cbios For CP/M Ver. 2.2 *** 



* 

* 

* 

* ---.....- - . ^ 

***************************************************************** 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, 

* DOUBLE DENSITY, AND DOUBLE SIDED. 



D888 


7800 


DPB512D DW 


120 


D88A 


04 


DB 


4 


D88B 


0F 


DB 


15 


D88C 


00 


DB 





D88D 


3102 


DW 


561 


D88F 


FF00 


DW 


255 


D891 


F0 


DB 


0F0H 


D892 


00 


DB 





D893 


4000 


DW 


64 


D895 


0200 


DW 


2 


D897 


3B 


DB 


3BH 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

?AL0 

;AL1 

;CKS 

;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D898 


8000 


DP1024D DW 


128 


D89A 


04 


DB 


4 


D89B 


0F 


DB 


15 


D89C 


00 


DB 





D89D 


5702 


DW 


599 


D89F 


FF00 


DW 


255 


D8A1 


F0 


DB 


0F0H 


D8A2 


00 


DB 





D8A3 


4000 


DW 


64 


D8A5 


0200 


DW 


2 


D8A7 


7C 


DB 


7CH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* * 
***************************************************************** 



D8A8 


0000 DPZERO 


DW 





D8AA 


0000000000 


DW 


0,0,0 


D8B0 


1BDF 


DW 


DIRBUF 


D8B2 


0000 


DW 





D8B4 


1BDE 


DW 


CSV0 


D8B6 


EFDC 


DW 


ALV0 


D838 


0000 DPONE 


DW 





D8BA 


0000000000 


DW 


0,0,0 


D8C0 


1BDF 


DW 


DIRBUF 


D8C2 


0000 


DW 





D8C4 


5BDE 


DW 


CSV1 



; ADDRESS OF TRANSLATION TABLE (FILLED 

; IN BY SETDRV) 

;USED BY BDOS 

; ADDRESS OF DIRECTORY BUFFER 

;ADDRESS OF DPB {FILLED IN BY SETDRV) 

; DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 



CP/M MACRO ASS.EM 2.0 

D8C6 3ADD 

D8C8 0000 DPTWO 

D8CA 0000000000 

D8D0 1BDF 

D8D2 0000 

D8D4 9BDE 

D8D6 85DD 

D8D8 0000 DPTHRE 
D8DA 0000000000 

D8E0 1BDF 

D8E2 0000 

D8E4 DBDE 

D8E6 D0DD 



#027 


*** Cb 


DW 


ALV1 


DW 





DW 


0,0,0 


DW 


DIRBUF 


DW 





DW 


CSV2 


DW 


ALV2 


DW 





DW 


0,0,0 


DW 


DIRBUF 


DW 





DW 


CSV3 


DW 


ALV3 



*** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 

***************************************************************** 



D8E8 


00 


CPMSEC 


DB 





D8E9 


00 


CPMDRV 


DB 





D8EA 


00 


CPMTRK 


DB 





D8EB 


00 


TRUESEC 


DB 





D8EC 


00 


BUFDRV 


DB 





D8ED 


00 


BUFTRK 


DB 





D8EE 


00 


BUFSEC 


DB 





D8EF 




BUFFER 


DS 


1024 


DCEF 




ALV0 


DS 


75 


DD3A 




ALV1 


DS 


75 


DD85 




ALV2 


DS 


75 


DDD0 




ALV3 


DS 


75 


DE1B 




CSV0 


DS 


64 


DE5B 




CSV1 


DS 


64 


DE9B 




CSV2 


DS 


64 


DEDB 




CSV3 


DS 


64 


DF1B 




DIRBUF 


DS 


128 



;CP/M SECTOR # 

;CP/M DRIVE # 

;CP/M TRACK # 

;DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

; DRIVE THAT BUFFER BELONGS TO 

; TRACK THAT BUFFER BELONGS TO 

; SECTOR THAT BUFFER BELONGS TO 

; MAXIMUM SIZE BUFFER FOR IK SECTORS 

.•ALLOCATION VECTOR FOR DRIVE A 
; ALLOCATION VECTOR FOR DRIVE B 
.•ALLOCATION VECTOR FOR DRIVE C 
;ALLOCATION VECTOR FOR DRIVE D 
.•DIRECTORY CHECK VECTOR FOR DRIVE A 
; DIRECTORY CHECK VECTOR FOR DRIVE B 
; DIRECTORY CHECK VECTOR FOR DRIVE C 
.•DIRECTORY CHECK VECTOR FOR DRIVE D 
.•DIRECTORY BUFFER 



DF9B 



END 



CP/M macro ASSEM 2.0 



#028 



*** Cbios For CP/M Ver. 2.2 *** 



0006 


AACK 


000D 


ACR 


0003 


AETX 


000A 


ALF 


DCEF 


ALV0 


DD3A 


ALV1 


DD85 


ALV2 


DDD0 


ALV3 


D3FA 


AUTOFLG 


C500 


BDOS 


9000 


BIAS 


D300 


BIOS 


D8EC 


BUFDRV 


0080 


BUFF 


D8EF 


BUFFER 


D8EE 


BUFSEC 


D8ED 


BUFTRK 


D5D5 


3UFWRTN 


D3A0 


CBOOT 


BD00 


CCP 


0004 


CDISK 


D727 


CICRT 


D727 


CIPTR 


D692 


CITBLE 


E403 


CITTY 


D712 


CIUC1 


D727 


CIUR1 


D727 


CIUR2 


D3F2 


CLDBOT 


0019 


CLEAR 


D3FB 


CMNDBEG 


D3FB 


CMNDEND 


D6D2 


COCRT 


D6E8 


COLPT 


D64C 


CONIN 


D652 


CONIN1 


D661 


CONOUT 


D640 


CONST 


D6E8 


COPTP 


D6D6 


COPTR . 


D6DD 


COPTR1 


D69A 


COTBLE 


E406 


COTTY 


D6F3 


COUL1 


D711 


COUNT 


D6E8 


COUP1 


D6E8 


COUP2 


D30C 


COUT 


D5B5 


CPMDMA 


D8E9 


CPMDRV 


0016 


CPMREV 


D8E8 


CPMSEC 


D8EA 


CPMTRK 


D73B 


CSCRT 


D73B 


CSPTR 


D646 


CSREADR 


D6C2 


CSRTBLE 


D6BA 


CSTBLE 


D733 


CSTTY 


D71E 


CSUC1 


D73B 


CSUR1 


D73B 


CSUR2 


DE1B 


CSV0 


DE5B 


CSV1 


DE9B 


CSV2 


DEDB 


CSV3 


D3F9 


CWFLG 


0008 


DBLSID 


DF1B 


DIRBUF 


D583 


DIVDONE 


D57A 


DIVLOOP 


E403 


DJCIN 


E406 


DJCOUT 


E42D 


DJDEN 


E412 


DJDMA 


D333 


DJDRV 


E42A 


DJERR 


E409 


DJHOME 


E400 


DJRAM 


E415 


DJREAD 


E40F 


DJSEC 


E41B 


DJSEL 


E430 


DJSIDE 


E427 


DJSTAT 


E40C 


DJTRK 


E421 


DJTSTAT 


E418 


DJWRITE 


D898 


DP1024D 


D858 


DP1024S 


D868 


DPB128D 


D828 


DPB128S 


D878 


DPB256D 


D838 


DPB256S 


D888 


DPB512D 


D848 


DPB512S 


D8B8 


DPONE 


D8D8 


DPTHRE 


D8C8 


DPTWO 


D8A8 


DPZERO 


D590 


DTSLOP 


0005 


ENTRY 


D620 


FILL 


D5D4 


FLUSH 


D541 


GETDPB 


D3B3 


GOCPM 


D490 


HOME 


00C0 


INTIOBY 


D5C2 


INTO 


0003 


IOBYTE 


D681 


LIST 


D684 


LIST1 


D68C 


LISTST 


D744 


LSLPT 


D6CA 


LSTBLE 


D6A2 


LTBLE 


0004 


MAXDISK 


D393 


MESSAGE 


D59F 


MOVE 


D635 


MOVER 


D637 


MOVLOP 


E800 


MSDV 


0038 


MSIZE 


D45E 


NEWDMA 


D43F 


NEWSEC 


D456 


NOWRAP 


E000 


ORIGIN 


D5BD 


OUTOF 


D67C 


PNCH1 


D5DB 


PREP 


D336 


PROMPT 


D6AA 


PTBLE 


D676 


PUNCH 


D708 


PWAIT 


D5B8 


RDWR 


D66C 


READER 


D569 


READ 


D66F 


READERA 


D672 


READR1 


D749 


READY 


D56D 


REDWRT 


000A 


RETRIES 


D5E4 


RETRYLP 


D612 


RETRYOP 


001E 


REVNUM 


D6B2 


RTBLE 


D5A4 


SECPSEC 


D56E 


SECSIZ 


D497 


SECTRAN 


D656 


SELDEV 


D48A 


SETDMA 


D4C6 


SETDRV 


D524 


SETDRV1 


D485 


SETSEC 


D492 


SETTRK 


D4A5 


SIDEA 


D517 


SIDEOK 


D4A8 


SIDEONE 


D4AE 


SIDETWO 


D736 


STAT 


D74C 


TINIT 


0100 


TPA 


D8EB 


TRUESEC 


D43E 


WARMLOD 


D472 


WARMRD 


D303 


WBOOTE 


D3FC 


WBOOT 


0000 


WBOT 


D400 


WFLG 


D562 


WRITE 


D5CC 


WRITTYP 


D475 


WRMREAD 


D7E7 


XLT124 


D75A 


XLT128 


D775 


XLT256 


D7AA 


XLT512 


D55A 


XLTS 


D53D 


ZRET 















